home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_271_300 / time275 / videomaxe430 / installvm < prev    next >
Text File  |  1995-07-15  |  24KB  |  702 lines
  1. ; $VER: InstallVM 02.20 (04 Dec 1993) © Stephan Sürken
  2.  
  3. ; ----------------------
  4. ; TEXTS INITILIZATION
  5.  
  6. ; all texts in a row: 1st english default, then all other langs
  7.  
  8. ; TEXTS
  9.  
  10. (set startupMessage (cat "\n\nInstaller script for VideoMaxe 04.30\n\n"
  11.                          "VideoMaxe is ShareWare (see documentation)!\n\n"
  12.                          "© Stephan Sürken 1993"))
  13. (if (= @language "deutsch") (
  14. (set startupMessage (cat "\n\nInstaller Skript für VideoMaxe 04.30\n\n"
  15.                          "VideoMaxe ist ShareWare (siehe Dokumentation)!\n\n"
  16.                          "© Stephan Sürken 1993"))))
  17.  
  18. ; yes
  19.  
  20. (set yesTxt "Yes")
  21. (if (= @language "deutsch") ((set yesTxt "Ja")))
  22.  
  23. ; no
  24.  
  25. (set noTxt "No")
  26. (if (= @language "deutsch") ((set noTxt "Nein")))
  27.  
  28. ; minorUpdate
  29.  
  30. (set minorUpdateTxt "Minor update")
  31. (if (= @language "deutsch") ((set minorUpdateTxt "Kleines Update")))
  32.  
  33. ; newInstallation
  34.  
  35. (set newInstallationTxt "New installation")
  36. (if (= @language "deutsch") ((set newInstallationTxt "Neuinstallation")))
  37.  
  38. ; updateFiles
  39.  
  40. (set updateFilesTxt "Update data files")
  41. (if (= @language "deutsch") ((set updateFilesTxt "Daten-Dateien updaten")))
  42.  
  43. ; all versions with file format changes to current version
  44.  
  45. (set vm3XXTxt "VideoMaxe 03.XX")
  46. (set vm420Txt "VideoMaxe 04.20")
  47.  
  48. ; all (6) file types
  49.  
  50. (set projectFileTxt "project file")
  51. (if (= @language "deutsch") ((set projectFileTxt "Projekt-Datei")))
  52.  
  53. (set maskListFileTxt "mask list file")
  54. (if (= @language "deutsch") ((set maskListFileTxt "Maskenlisten-Datei")))
  55.  
  56. (set vRecFileTxt "video recorder file")
  57. (if (= @language "deutsch") ((set vRecFileTxt "Videorekorder-Datei")))
  58.  
  59. (set prtPrefsFileTxt "printer preferences file")
  60. (if (= @language "deutsch") ((set prtPrefsFileTxt "Drucker-Einstellungen-Datei")))
  61.  
  62. (set vmPrefsFileTxt "VideoMaxe preferences file")
  63. (if (= @language "deutsch") ((set vmPrefsFileTxt "VideoMaxe-Einstellungen-Datei")))
  64.  
  65. (set loPrefsFileTxt "layout preferences file")
  66. (if (= @language "deutsch") ((set loPrefsFileTxt "Layout-Einstellungen-Datei")))
  67.  
  68.  
  69. ; HELPS
  70.  
  71. ; steps
  72.  
  73. (set stepsHelp
  74.      (cat "\n"
  75.           "This window lets you choose the steps this script should "
  76.           "perform. It can be used for four main purposes:\n\n"
  77.           "o STEP 0: accomplish a minor update\n"
  78.           "o STEP 1: accomplish a complete new installation\n"
  79.           "o STEP 2: update older VideoMaxe files\n\n"
  80.           " You can freely choose which steps should actually be "
  81.           "performed, except that steps 0 and 1 mutually exclude "
  82.           "themselves.\n\n"
  83.           "Explanation of the steps:\n\n"
  84.           "o STEP 0: Will only copy the VideoMaxe program file, "
  85.           "the new documentation files and the language "
  86.           "localization files. With this variant, some new environmental "
  87.           "features of the new release (like even better icons, even "
  88.           "better example files, etc.) may stay invisible, but you "
  89.           "maintain your used installation. Note that you possibly -- "
  90.           "exactly then, when there have been file format changes "
  91.           "with this new release (see Docs.) -- have to update (some "
  92.           "of) your data files using step 2.\n\n"
  93.           "o STEP 1: Will accomlish a complete new installation "
  94.           "of VideoMaxe. Use this if you are a new user (or "
  95.           "updating from the 3.XX version).\n"
  96.           "Choose this too if you are not sure what to select, "
  97.           "as this will in any case produce a runable installation "
  98.           "of the new version.\n"
  99.           "o STEP 2: Lets you update VideoMaxe files of (all) "
  100.           "older versions. You need this only if there have been "
  101.           "file format changes with this release (compared to your "
  102.           "now-installed version). If you are not sure however, "
  103.           "simply try if you can still load the old files with "
  104.           "the new installed VideoMaxe -- if you can't, just re-run "
  105.           "this script and update!\n\n"))
  106.  
  107. (if (= @language "deutsch") (
  108. (set stepsHelp
  109.      (cat "\n"
  110.           "Mit diesem Fenster können Sie wählen, welche Schritte "
  111.           "Sie mit diesem Script ausführen wollen. Folgende Schritte "
  112.           "sind wählbar:\n\n"
  113.           "o SCHRITT 0: 'kleines' Update durchführen\n"
  114.           "o SCHRITT 1: komplette Neuinstallation\n"
  115.           "o SCHRITT 2: alte VideoMaxe-Dateien updaten\n\n"
  116.           " Sie können frei beliebige Schritte wählen, die dann "
  117.           "tasächlich ausgeführt werden (lediglich Schritt 0 und 1 "
  118.           "schließen sich gegenseitig aus).\n\n"
  119.           "Erklärung der einzelnen Schritte:\n\n"
  120.           "o SCHRITT 0: Nur die VideoMaxe-Programm-Datei, "
  121.           "die neuen Dokumentationsdateien und die "
  122.           "Sprachbeschreibungsdateien (VideoMaxe.catalog-files) "
  123.           "werden kopiert. Bei diese Variante können zwar "
  124.           "Umgebungs-'Features' der neuen Release (z.B. neue, noch "
  125.           "tollere Ikonen, neue, noch tollere Beispieldateien, etc.) "
  126.           "verlorengehen, sie behalten aber Ihre 'gewohnte' "
  127.           "Installation bei. Beachten Sie, daß Sie -- wenn sich Datei-"
  128.           "Formate geändert haben (siehe Dok.) -- dann anschließend "
  129.           "noch Schritt (2) durchführen sollten.\n"
  130.           "o SCHRITT 1: Führt eine vollständige Neuinstallation von "
  131.           "VideoMaxe durch. Benutzen Sie diese Variante, wenn Sie ein "
  132.           "neuer Benutzer sind (oder von 3.XX-Versionen von VideoMaxe "
  133.           "updaten).\n"
  134.           "Wählen Sie diese Variante auch, wenn Sie nicht sicher "
  135.           "sind, was Sie wählen sollen -- Sie erhalten am Ende "
  136.           "in jedem Fall eine lauffähige Installation.\n"
  137.           "o SCHRITT 2: Mit diesem Schritt können Sie Dateien von "
  138.           "(allen!) älteren Versionen von VideoMaxe auf das Format "
  139.           "der aktuellen Version bringen. Dies ist natürlich nur "
  140.           "notwendig, wenn die Dateiformate sich mit der jetzt zu "
  141.           "installierenden Version geändert habe (siehe Dok.). Sind "
  142.           "Sie -warum auch immer- nicht sicher, probieren Sie einfach "
  143.           "aus, ob Sie Ihre Dateien vom neu installierten VideoMaxe "
  144.           "noch laden können -- wenn nicht, einfach diese Skript "
  145.           "erneut starten und Dateien updaten!\n\n"))))
  146.  
  147.  
  148. ; destDirHelp
  149.  
  150. (set destDirHelp
  151.      (cat "\n"
  152.           "Into the directory you choose here all files "
  153.           "important for VideoMaxe are placed during the "
  154.           "installation procedure.\n"
  155.           "Note that this directory must be empty, so "
  156.           "normally you will create a new directory at "
  157.           "this point.\n\n"))
  158.  
  159. (if (= @language "deutsch") (
  160. (set destDirHelp
  161.      (cat "\n"
  162.           "In das hier zu wählende Verzeichnis werden während "
  163.           "der Installation alle zu VideoMaxe gehörenden Dateien "
  164.           "plaziert (mit evtl. einigen Ausnahmen).\n"
  165.           "Beachten Sie, daß das Verzeichnis leer sein muß. Im "
  166.           "Normalfall sollten Sie hier also ein neues Verzeichnis "
  167.           "anlegen.\n\n"))))
  168.  
  169.  
  170. ; langHelp
  171.  
  172. (set langHelp
  173.      (cat "\n"
  174.           "Since OS 2.1, the Amiga can operate in different "
  175.           "languages if the application supports them. VideoMaxe "
  176.           "up to now supports English (as default, `built-in` "
  177.           "language), German (Deutsch) and French (Français).\n"
  178.           "Simply check the languages you want VideoMaxe to "
  179.           "support.\n\n"))
  180.  
  181. (if (= @language "deutsch") (
  182. (set langHelp
  183.      (cat "\n"
  184.           "Seit OS 2.1 kann der Amiga in mehreren Sprachen operieren, "
  185.           "wenn die entsprechende Applikation dies unterstützt. "
  186.           "VideoMaxe unterstützt zur Zeit die Sprachen Englisch (ist "
  187.           "'eingebaut', braucht also nicht installiert zu werden), "
  188.           "Deutsch und Französisch.\n"
  189.           "Wählen Sie einfach alle Sprachen aus, die Sie mit VideoMaxe "
  190.           "benutzen wollen.\n\n"))))
  191.  
  192. ; exampleFilesHelp
  193.  
  194. (set exampleFilesHelp
  195.      (cat "\n"
  196.           "VideoMaxe comes with various example files:\n\n"
  197.           "`Projects' contains example project files.\n "
  198.           "`MaskList' contains example mask list files.\n "
  199.           "`PrtPrefs' contains example printer preferences files.\n "
  200.           "`VideoRecorder' contains example video recorder files.\n\n"))
  201.  
  202. (if (= @language "deutsch") (
  203. (set exampleFilesHelp
  204.      (cat "\n"
  205.           "VideoMaxe kommt mit einigen Beispieldateien:\n\n"
  206.           "`Projects' enthält Beispiele für Projekte.\n"
  207.           "`MaskList' enthält Beispiele für Masken(listen).\n"
  208.           "`PrtPrefs' enthält Beispiele für Drucker-Voreinstellungen.\n"
  209.           "`VideoRecorder' enthält Beispiele für Videorekorder.\n\n"))))
  210.  
  211. ; docsHelp
  212.  
  213. (set docsHelp
  214.      (cat "\n"
  215.           "VideoMaxe comes with two differently formatted files "
  216.           "containing its documentation. The first (VideoMaxe.doc) "
  217.           "is a plain ASCII text file (that could for example be "
  218.           "displayed with the standard text viewer More). The "
  219.           "second file (VideoMaxe.guide) is in AmigaGuide© format "
  220.           "and can be displayed by any hypertext displayer (e.g. "
  221.           "AmigaGuide).\n"
  222.           "I strongly urge to use the latter if you have the "
  223.           "opportunity to.\n\n"))
  224.  
  225. (if (= @language "deutsch") (
  226. (set docsHelp
  227.      (cat "\n"
  228.           "VideoMaxe kommt mit zwei Dokumentationsdateien in "
  229.           "unterschiedlichem Format, zum einen als normale "
  230.           "ASCII-Text-Datei, zum anderen als AmigaGuide©-Datei. "
  231.           "Ersteres kann mit jedem Textviewer oder Editor, letzteres "
  232.           "mit jedem Hypertext-Anzeiger (z.B. AmigaGuide, MultiView) "
  233.           "angezeigt werden.\n"
  234.           "Die letztere Variante ist mit Sicherheit die elegantere, "
  235.           "die man auf jeden Fall bevorzugen sollte.\n\n"))))
  236.  
  237. ; updateFilesHelp
  238.  
  239. (set updateFilesHelp
  240.      (cat "\n"
  241.           "If you have worked with former versions of VideoMaxe "
  242.           "and there have been file format changes, you won't want "
  243.           "to loose the data of these old files.\n"
  244.           "Thus, you have to update these files to the new formats.\n"
  245.           "This task is done by the CLI-Tool `VMConvert', shipped "
  246.           "with every release of VideoMaxe in the `Tools' directory; "
  247.           "to not let you nimble around with that Tool you can "
  248.           "comfortably update old files with this script!! "
  249.           "Simply choose the old file types you want to update; "
  250.           "you will then be asked for source and destination "
  251.           "file names.\n"
  252.           "This procedure won't do no harm as it will only convert "
  253.           "to non-existent destination files.\n\n"))
  254.  
  255. (if (= @language "deutsch") (
  256. (set updateFilesHelp
  257.      (cat "\n"
  258.           "Wenn Sie schon mit älteren Versionen von VideoMaxe "
  259.           "gearbeitet haben und Dateiformat-Änderungen haben "
  260.           "von dieser bis zur aktuellen Version stattgefunden, "
  261.           "so müssen Sie Ihre alten Dateien 'auf den neuesten "
  262.           "Stand bringen', um diese Daten weiter nutzen zu können. "
  263.           "Genau dies wird hier gemacht.\n"
  264.           "Diese Aufgabe wird von dem CLI-Werkzeug `VMConvert' "
  265.           "übernommen. Damit Sie nicht damit rumtüfteln müssen, "
  266.           "könne Sie diese Umwandlungen komfortabel mit diesem "
  267.           "Skript vornehmen.\n"
  268.           "Wählen Sie einfach die Datei-Typen, die Sie auf den "
  269.           "neuesten Stand bringen wollen; Sie werden dann nach "
  270.           "Quell- und Zieldatei gefragt.\n"
  271.           "Diese Prozedur wird keinen Schaden anrichten, da die "
  272.           "Zieldatei noch nicht existieren darf (es wird also "
  273.           "nichts überschrieben...).\n\n"))))
  274.  
  275. ; V3XXUpdateHelp
  276.  
  277. (set V3XXUpdateHelp
  278.      (cat "\n"
  279.           "Here you are updating files from the 3.XX version "
  280.           "to the format of the current version of VideoMaxe.\n\n"))
  281.  
  282. (if (= @language "deutsch") (
  283. (set V3XXUpdateHelp
  284.      (cat "\n"
  285.           "Hier bringen Sie Dateien von VideoMaxe 03.XX "
  286.           "auf den neuesten Stand.\n\n"))))
  287.  
  288. ; V420UpdateHelp
  289.  
  290. (set V420UpdateHelp
  291.      (cat "\n"
  292.           "Here you are updating files from the 4.00-4.20 versions "
  293.           "to the format of the current version of VideoMaxe.\n\n"))
  294.  
  295. (if (= @language "deutsch") (
  296. (set V420UpdateHelp
  297.      (cat "\n"
  298.           "Hier bringen Sie Dateien von den 04.00-04.20 Versionen "
  299.           "von VideoMaxe auf den neuesten Stand.\n\n"))))
  300.  
  301.  
  302. ; MESSAGES
  303.  
  304. (set stepZeroMes (cat "\n\n" minorUpdateTxt))
  305. (set stepOneMes (cat "\n\n" newInstallationTxt))
  306. (set stepTwoMes (cat "\n\n" updateFilesTxt))
  307.  
  308. (set romBelow37Mes "\nYour Kickstart version is below V37 (2.04). Sorry, but VideoMaxe won't run on your machine!")
  309. (if (= @language "deutsch") (
  310. (set romBelow37Mes "\nSie haben eine Kickstart version kleiner V37 (2.04). Sorry, but VideoMaxe wird so nicht laufen!")))
  311.  
  312. (set noLocaleDirMes "\nYou have no LOCALE: directory; will copy catalogs to program directory!")
  313. (if (= @language "deutsch") (
  314. (set noLocaleDirMes "\nSie haben kein LOCALE: Verzeichnis; die Katalog-Dateien werden in das Programmverzeichnis kopiert!")))
  315.  
  316. (set convertDestFileExistMes "\nCan't convert: Destination file already exists!")
  317. (if (= @language "deutsch") (
  318. (set convertDestFileExistMes "\nKann nicht konvertieren: Zieldatei existiert bereits!")))
  319.  
  320. (set mutualExcludingStepsMes "\nYou must not choose step 0 AND step 1!")
  321. (if (= @language "deutsch") (
  322. (set mutualExcludingStepsMes "\nSie dürfen Schritt 0 und 1 nicht zusammen wählen!")))
  323.  
  324. (set dirNotAvailableMes "\nSpecified directory does not exist!")
  325. (if (= @language "deutsch") (
  326. (set dirNotAvailableMes "\nGewähltes Verzeichnis existiert nicht!")))
  327.  
  328. (set dirNotEmptyMes "\nSpecified directory is not empty!")
  329. (if (= @language "deutsch") (
  330. (set dirNotEmptyMes "\nGewähltes Verzeichnis ist nicht leer!")))
  331.  
  332.  
  333. ; PROMPTS
  334.  
  335. (set chooseLangsPrompt "Please choose languages you want to use with VideoMaxe:")
  336. (if (= @language "deutsch") (
  337. (set chooseLangsPrompt "Bitte wählen Sie die Sprachen, die Sie mit VideoMaxe benutzen wollen:")))
  338.  
  339. (set chooseDocFilesPrompt "Please choose documentation files to be copied:")
  340. (if (= @language "deutsch") (
  341. (set chooseDocFilesPrompt "Bitte wählen Sie die zu kopierenden Dokumentationsdateien:")))
  342.  
  343. (set chooseOldVMFilePrompt "Please choose the old file of type:\n")
  344. (if (= @language "deutsch") (
  345. (set chooseOldVMFilePrompt "Bitte wählen Sie eine alte Datei vom Typ:\n")))
  346.  
  347. (set chooseNewVMFilePrompt "Please choose a name for the new file of type:\n")
  348. (if (= @language "deutsch") (
  349. (set chooseNewVMFilePrompt "Bitte wählen Sie eine Namen für die neue Datei vom Typ:\n")))
  350.  
  351. (set goOnUpdatingPrompt "\nUpdate more files of that type?\n")
  352. (if (= @language "deutsch") (
  353. (set goOnUpdatingPrompt "\nMehr Dateien dieses Typs updaten?\n")))
  354.  
  355. (set chooseStepsPrompt "Choose steps to be performed:")
  356. (if (= @language "deutsch") (
  357. (set chooseStepsPrompt "Bitte wählen Sie die auszuführenden Schritte:")))
  358.  
  359. (set chooseOldVMDirPrompt "Please specify the directory you have VideoMaxe installed in:")
  360. (if (= @language "deutsch") (
  361. (set chooseOldVMDirPrompt "Bitte geben Sie das Verzeichnis an, in dem VideoMaxe derzeit installiert ist:")))
  362.  
  363. (set chooseNewVMDirPrompt "Please choose a directory VideoMaxe should be installed into (must be empty):")
  364. (if (= @language "deutsch") (
  365. (set chooseNewVMDirPrompt "Bitte wählen Sie ein Verzeichnis, in das VideoMaxe installiert werden soll (muß leer sein):")))
  366.  
  367. (set chooseExampleFilesPrompt "Please choose the example files to be copied:")
  368. (if (= @language "deutsch") (
  369. (set chooseExampleFilesPrompt "Bitte wählen Sie die zu kopierenden Beispieldateien:")))
  370.  
  371. (set installStartupPrompt "Should the logical device VM: be assigned automatically with your system's startup?")
  372. (if (= @language "deutsch") (
  373. (set installStartupPrompt "Soll das logische Gerät VM: beim Systemstart automatisch angelegt werden?")))
  374.  
  375. (set chooseFileTypesToUpdatePrompt "Please choose file types to update to current version:")
  376. (if (= @language "deutsch") (
  377. (set chooseFileTypesToUpdatePrompt "Bitte wählen Sie die Dateitypen, die Sie updaten wollen:")))
  378.  
  379.  
  380. ; PROCEDURES
  381. ;------------------
  382. (PROCEDURE CopyCats
  383. ; ARGS: destDir
  384.  
  385. (if (NOT (exists "LOCALE:"))            ; `LOCALE:' THERE?
  386.      ((message noLocaleDirMes)
  387.       (set catDest (tackon destDir "Catalogs"))
  388.      )
  389.      ((set catDest ("LOCALE:Catalogs"))
  390.      )
  391. ) ; fi
  392.  
  393. (makedir catDest); maybe existent
  394. (copyfiles (prompt chooseLangsPrompt)
  395.            (source "Catalogs")
  396.            (dest catDest)
  397.            (choices "Deutsch"
  398.                     "Français")
  399.            (confirm)
  400.            (help langHelp @copyfiles-help))
  401.  
  402. );ENDPROC CopyCats
  403. ;-----------------
  404.  
  405. ;------------------
  406. (PROCEDURE CopyDocs
  407. ; ARGS: destDir, docsHelp
  408.  
  409. (copyfiles (prompt chooseDocFilesPrompt)
  410.            (source "Docs")
  411.            (dest (tackon destDir "Docs"))
  412.            (choices "VideoMaxe.doc"
  413.                     "VideoMaxe.guide")
  414.            (confirm)
  415.            (infos)
  416.            (noposition)
  417.            (help docsHelp @copyfiles-help))
  418.  
  419. );ENDPROC CopyDocs
  420. ;------------------
  421.  
  422. ;-----------------------
  423. (PROCEDURE ConvertFiles
  424. ; ARGS: fileType,               ; the file type to be converted
  425. ;       sourceFile, destFile,   ; used as dir defaults...
  426. ;       versionUpdateHelp       ; information texts...
  427.  
  428.  
  429. ; CALC PROMPTS
  430. (set sourceFileSpecifyPrompt (cat chooseOldVMFilePrompt fileType))
  431. (set destFileSpecifyPrompt (cat chooseNewVMFilePrompt fileType))
  432.  
  433. ; WHILE
  434. (set ok 1)
  435. (while ok
  436.        ; GET SOURCE
  437.        (set sourceFile (askfile (prompt sourceFileSpecifyPrompt)
  438.                                 (default sourceFile)
  439.                                 (help versionUpdateHelp @askfile-help)))
  440.        ; GET DEST
  441.        (set destFile (askfile (prompt destFileSpecifyPrompt)
  442.                               (default destFile)
  443.                               (help versionUpdateHelp @askfile-help)))
  444.        (if (exists destFile)
  445.            ((message convertDestFileExistMes))
  446.            ((run ("Tools/VMConvert >CON:20/20/400/200/VMConvert/CLOSE/WAIT %s %s %s" fileType sourceFile destFile)))
  447.        )
  448.        (set ok (askbool (prompt goOnUpdatingPrompt)
  449.                         (help ©askbool-help)
  450.                         (choices yesTxt noTxt)))
  451. )
  452.  
  453. );ENDPROC ConvertFiles
  454. ;----------------------
  455.  
  456.  
  457. ;#################
  458. ; START OF SCRIPT
  459. ;#################
  460.  
  461. ; CHECK ROM 2.04
  462.  
  463. (if (< (/ (getversion) 65536) 37) ((abort romBelow37Mes)))
  464.  
  465. ; INITIAL SETTINGS
  466.  
  467. (set steps %010)
  468. (set destDir "Work:VideoMaxe")
  469. (set @default-dest destDir)
  470.  
  471. ; WELCOME OUT THERE!
  472.  
  473. (message startupMessage)
  474. (welcome)
  475.  
  476. ; WHICH STEPS?
  477.  
  478. (set ok 0)
  479. (until ok
  480.        (set steps (askoptions (prompt chooseStepsPrompt)
  481.                               (default steps)
  482.                               (help stepsHelp @askoptions-help)
  483.                               (choices minorUpdateTxt
  484.                                        newInstallationTxt
  485.                                        updateFilesTxt)))
  486.  
  487.        ; STEPS 0 AND 1 SELECTED?
  488.  
  489.        (set ok (NOT (AND (> (IN steps 0) 0) (> (IN steps 1) 0))))
  490.        (if (NOT ok) ((message mutualExcludingStepsMes)))
  491. )
  492.  
  493. (if (IN steps 0)
  494. (
  495. ;====================================
  496. (message stepZeroMes)
  497. ;====================================
  498.  
  499. ; GET DEST DIR
  500.  
  501. (set ok 0)
  502. (until ok
  503.        (set destDir (askdir (prompt chooseOldVMDirPrompt)
  504.                             (default "VM:")
  505.                             (help ©askdir-help)))
  506.        (set ok (exists destDir))                        ; dest dir ok
  507.        (if (NOT ok) (message dirNotAvailableMes))
  508. )
  509. (set @default-dest destDir)
  510.  
  511. ; COPY DOC FILES
  512.  
  513. (CopyDocs)
  514.  
  515. ; COPY LOCALIZATION FILES
  516.  
  517. (CopyCats)
  518.  
  519. ;===================================
  520. ; MINOR UPDATE COMPLETE
  521. ;===================================
  522. ))
  523.  
  524.  
  525. (if (IN steps 1)
  526. (
  527. ;=======================================
  528. (message stepOneMes)
  529. ;=======================================
  530.  
  531. ; GET DEST DIR
  532.  
  533. (set ok 0)
  534. (until ok
  535.        (set destDir (askdir (prompt chooseNewVMDirPrompt)
  536.                             (default "Work:VideoMaxe")
  537.                             (help destDirHelp @askdir-help)))
  538.        (set ok 1)                               ; dest dir ok
  539.        (foreach destDir "#?" (set ok 0))        ; or not? - must be empty!
  540.        (if (NOT ok) (message dirNotEmptyMes))
  541. )
  542. (set @default-dest destDir)
  543.  
  544. ; CREATE DIRS
  545.  
  546. (working "Creating needed sub-directories...")
  547.  
  548. (makedir (tackon destDir "Config"))
  549. (copyfiles (source "Config.info") (dest destDir))
  550. (makedir (tackon destDir "Projects"))
  551. (copyfiles (source "Projects.info") (dest destDir))
  552. (makedir (tackon destDir "MaskLists"))
  553. (copyfiles (source "MaskLists.info") (dest destDir))
  554. (makedir (tackon destDir "PrtPrefs"))
  555. (copyfiles (source "PrtPrefs.info") (dest destDir))
  556. (makedir (tackon destDir "VideoRecorder"))
  557. (copyfiles (source "VideoRecorder.info") (dest destDir))
  558.  
  559. ; COPY CRUCIAL FILES
  560.  
  561. (working "Copying crucial files...")
  562.  
  563. (copyfiles (source "VideoMaxe") (dest destDir) (infos))
  564. (copyfiles (source "AssignVM")  (dest destDir) (infos))
  565. (copyfiles (source "Config")    (dest (tackon destDir "Config")) (infos) (all))
  566.  
  567. ; COPY EXAMPLE FILES
  568.  
  569. (copyfiles (prompt chooseExampleFilesPrompt)
  570.            (source "")
  571.            (dest destDir)
  572.            (choices "Projects"
  573.                     "MaskLists"
  574.                     "PrtPrefs"
  575.                     "VideoRecorder")
  576.            (help exampleFilesHelp @copyfiles-help)
  577.            (confirm)
  578.            (infos))
  579.  
  580. ; COPY DOC FILES
  581.  
  582. (CopyDocs)
  583.  
  584. ; COPY LOCALIZATION FILES
  585.  
  586. (CopyCats)
  587.  
  588. ; SYSTEM STARTUP
  589.  
  590. (startup "VideoMaxe" (prompt installStartupPrompt)
  591.                      (help @startup-help)
  592.                      (command "Assign VM: " destDir))
  593.  
  594. ;=======================================
  595. ; NEW INSTALLATION COMPLETE
  596. ;=======================================
  597. ))
  598.  
  599.  
  600. (if (IN steps 2)
  601. (
  602. ;=====================================
  603. (message stepTwoMes)
  604. ;=====================================
  605.  
  606. ; GET SELECTION
  607.  
  608. (set updates %1111000)
  609. (set updates (askoptions (prompt chooseFileTypesToUpdatePrompt)
  610.                          (default updates)
  611.                          (help updateFilesHelp @askoptions-help)
  612.                          (choices (cat vm3XXTxt " " projectFileTxt)
  613.                                   (cat vm3XXTxt " " vRecFileTxt)
  614.                                   "--------------------------------"
  615.                                   (cat vm420Txt " " projectFileTxt)
  616.                                   (cat vm420Txt " " maskListFileTxt)
  617.                                   (cat vm420Txt " " vRecFileTxt)
  618.                                   (cat vm420Txt " " prtPrefsFileTxt))))
  619.  
  620. ; ... SELECTION
  621. ;
  622. ;------
  623. ; V3XX
  624. ;------
  625. (set versionUpdateHelp V3XXUpdateHelp)
  626. ;
  627. (if (IN updates 0)      ; V3XXPROJECT
  628.             (
  629.              ; SET ARGUMENTS
  630.              (set fileType "V3XXPROJECT")
  631.              (set sourceFile "VM:Projekte")
  632.              (set destFile (tackon destDir "Projects"))
  633.  
  634.              (ConvertFiles)
  635.             )
  636. )
  637.  
  638. (if (IN updates 1)      ; V3XXVREC
  639.             (
  640.              ; SET ARGUMENTS
  641.              (set fileType "V3XXVREC")
  642.              (set sourceFile "VM:Treiber")
  643.              (set destFile (tackon destDir "VideoRecorder"))
  644.  
  645.              (ConvertFiles)
  646.             )
  647. )
  648.  
  649. ;
  650. ;------
  651. ; V420
  652. ;------
  653. (set versionUpdateHelp V420UpdateHelp)
  654. ;
  655. (if (IN updates 3)      ; V420PROJECT
  656.             (
  657.              ; SET ARGUMENTS
  658.              (set fileType "V420PROJECT")
  659.              (set sourceFile "VM:Projects")
  660.              (set destFile (tackon destDir "Projects"))
  661.  
  662.              (ConvertFiles)
  663.             )
  664. )
  665. (if (IN updates 4)      ; V420MASKLIST
  666.             (
  667.              ; SET ARGUMENTS
  668.              (set fileType "V420MASKLIST")
  669.              (set sourceFile "VM:MaskLists")
  670.              (set destFile (tackon destDir "MaskLists"))
  671.  
  672.              (ConvertFiles)
  673.             )
  674. )
  675. (if (IN updates 5)      ; V420VREC
  676.             (
  677.              ; SET ARGUMENTS
  678.              (set fileType "V420VREC")
  679.              (set sourceFile "VM:VideoRecorder")
  680.              (set destFile (tackon destDir "VideoRecorder"))
  681.  
  682.              (ConvertFiles)
  683.             )
  684. )
  685. (if (IN updates 6)      ; V420PRTPREFS
  686.             (
  687.              ; SET ARGUMENTS
  688.              (set fileType "V420PRTPREFS")
  689.              (set sourceFile "VM:PrtPrefs")
  690.              (set destFile (tackon destDir "PrtPrefs"))
  691.  
  692.              (ConvertFiles)
  693.             )
  694. )
  695.  
  696. ;===============================
  697. ; UPDATING COMPLETE
  698. ;===============================
  699. ))
  700.  
  701. (exit)
  702.